home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / apps / 296 / scrnhelp.jil < prev    next >
Text File  |  1988-08-23  |  1KB  |  51 lines
  1. noop
  2. /*
  3.  *
  4.  *    This program is the property of Harvest Software Incorporated.
  5.  *         Copyright (c) 1988 Harvest Software Inc.
  6.  *
  7.  *               All rights reserved.
  8.  *
  9.  *    Title   :    "SCRNHELP.JIL"
  10.  *    Function:    MONOVIEW help screens for strokes and shorts.
  11.  *
  12.  *    Revised:  3-Feb-88 by LTH
  13.  * 
  14.  *    In order to use this file, you will need to have JIL2D (version 1B
  15.  *    or higher) and the INIT2D.JIL file which accompanied this file which
  16.  *    effectively updates JIL2D to version 1C.
  17.  */
  18.  
  19. macro screen-menu (
  20.     menuid Screen;
  21.     if $MTST( == false) (
  22.     menu $MID Screen
  23.     (HELP)        (hmsg Post the MONOVIEW Help menu;monhelp-menu)
  24.     (view .MON)    (hmsg View a MONOVIEW file;readscrn MON)
  25.     (make .MON)    (hmsg Create a MONOVIEW file;wrtscrn MON)
  26.     ()        noop
  27.     (view .PI3)    (hmsg View a PI3 file;readscrn PI3)
  28.     (make .PI3)    (hmsg Create a PI3 file;wrtscrn PI3);
  29.     )
  30.     else (cantpost)
  31.     )
  32.  
  33. macro monhelp-menu (
  34.     menuid Help;
  35.     if $MTST( == false) (
  36.     menu $MID Help
  37.     strokes        (hmsg View mouse stroke commands;
  38.         doing HELP;read-mon strokes.mon)
  39.     ()        noop
  40.     unshifted    (hmsg View unshifted key commands;
  41.         doing HELP;read-mon unshkey.mon)
  42.     shifted        (hmsg View shifted key commands;
  43.         doing HELP;read-mon shiftkey.mon)
  44.     control        (hmsg View control key commands;
  45.         doing HELP;read-mon ctrlkey.mon)
  46.     alternate    (hmsg View alternate key commands;
  47.         doing HELP;read-mon altkey.mon);
  48.     )
  49.     else (cantpost)
  50.     )
  51.